Mega Game 2000 #3/Mega Game № 03 2000.iso/Data/Mainmenu.dxr/Script_12_menu2.ls

Text File | 2000-02-15 | 4.3 KB | 168 lines

global stateSound, counterTimeOut

on mouseEnter
  tmpMember = the currentSpriteNum
  tmpCastName = "h_null"
  tmpHint = "h_null"
  case tmpMember of
    35, 36:
      tmpHint = "h_news_" & tmpMember - 34
      set the member of sprite 110 to tmpHint
      cursor([member("cur_3"), member("cur_3_m")])
      set the member of sprite tmpMember to "anm_news_" & tmpMember - 34
    10, 11, 12, 13:
      tmpHint = "h_k" & tmpMember - 9
      set the member of sprite 110 to tmpHint
      cursor([member("cur_3"), member("cur_3_m")])
      set the member of sprite tmpMember to "anm_b" & tmpMember - 9
    16:
      tmpHint = "h_fan"
      set the member of sprite 110 to tmpHint
      cursor([member("cur_3"), member("cur_3_m")])
      set the member of sprite (tmpMember - 1) to "anm_fan"
    17:
      tmpHint = "h_ab"
      set the member of sprite 110 to tmpHint
      cursor([member("cur_3"), member("cur_3_m")])
      set the member of sprite (tmpMember - 3) to "anm_ab"
    23:
      tmpHint = "h_an"
      set the member of sprite 110 to tmpHint
      cursor([member("cur_3"), member("cur_3_m")])
      set the member of sprite (tmpMember - 1) to "anm_an"
  end case
end

on mouseLeave
  tmpMember = the currentSpriteNum
  tmpCastName = "h_null"
  tmpHint = "h_null"
  case tmpMember of
    35, 36:
      set the member of sprite 110 to tmpHint
      cursor(0)
      set the member of sprite tmpMember to "news_" & tmpMember - 34
    10, 11, 12, 13:
      set the member of sprite 110 to tmpHint
      cursor(0)
      counterTimeOut = 0
      set the member of sprite tmpMember to "k" & tmpMember - 9
    16, 17:
      set the member of sprite 110 to tmpHint
      cursor(0)
      counterTimeOut = 0
      if tmpMember = 17 then
        set the member of sprite (tmpMember - 3) to "about"
      else
        set the member of sprite (tmpMember - 1) to "fantasy"
      end if
    23:
      set the member of sprite 110 to tmpHint
      cursor(0)
      counterTimeOut = 0
      set the member of sprite (tmpMember - 1) to "k_ank"
  end case
end

on mouseDown
  tmpMember = the currentSpriteNum
  tmpCastName = "h_null"
  tmpHint = "h_null"
  case tmpMember of
    35, 36:
      set the member of sprite 110 to tmpHint
      cursor(0)
      set the member of sprite tmpMember to "news_" & tmpMember - 34 & "_a"
      updateStage()
      if tmpMember = 36 then
        NewsPrev()
      else
        NewsNext()
      end if
    10, 11, 12, 13:
      set the member of sprite tmpMember to "k" & tmpMember - 9 & "_a"
      set the member of sprite 110 to tmpHint
      updateStage()
      FunctionGo(tmpMember - 9)
    16:
      set the member of sprite (tmpMember - 1) to "fantasy_a"
      set the member of sprite 110 to tmpHint
      updateStage()
      if stateSound = 1 then
        puppetSound(2, 0)
        puppetSound(2, "snd_go_fant")
        updateStage()
      end if
      if stateSound = 1 then
        go(1, "Fantasy")
      else
        go(2, "Fantasy")
      end if
    17:
      set the member of sprite 110 to tmpHint
      set the member of sprite (tmpMember - 3) to "about_a"
      updateStage()
      if stateSound = 1 then
        puppetSound(2, 0)
        puppetSound(2, "snd_About")
        updateStage()
      end if
      cursor(0)
      go(label("About"))
      set the member of sprite 110 to tmpHint
      updateStage()
    23:
      set the member of sprite (tmpMember - 1) to "k_ank_a"
      set the member of sprite 110 to tmpHint
      updateStage()
      if stateSound = 1 then
        puppetSound(2, 0)
        updateStage()
      end if
      if stateSound = 1 then
        go(1, "An")
      else
        go(2, "An")
      end if
  end case
end

on mouseUp
  tmpMember = the currentSpriteNum
  tmpCastName = "h_null"
  tmpHint = "h_null"
  case tmpMember of
    35, 36:
      tmpHint = "h_news_" & tmpMember - 34
      set the member of sprite 110 to tmpHint
      cursor([member("cur_3"), member("cur_3_m")])
      set the member of sprite tmpMember to "anm_news_" & tmpMember - 34
  end case
end

on FunctionGo uNumScena
  if stateSound = 1 then
    case uNumScena of
      1:
        go(1, "Vid")
      2:
        go(1, "Demosoft")
      3:
        go(1, "Patch")
      4:
        go(1, "Collect")
    end case
  else
    case uNumScena of
      1:
        go(2, "Vid")
      2:
        go(2, "Demosoft")
      3:
        go(2, "Patch")
      4:
        go(2, "Collect")
    end case
  end if
end